home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / B-C / CDlog / StarterIntf.p < prev   
Encoding:
Text File  |  1990-11-12  |  2.9 KB  |  164 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        StarterIntf.p                                                                        }
  4. {}
  5. {        Interface file for the Starter application.                                        }
  6. {}
  7. {        Copyright © 1989, Symantec Corporation.  All rights reserved.            }
  8. {}
  9. {****************************************************}
  10.  
  11.  
  12. unit StarterIntf;
  13.  
  14. interface
  15.  
  16. uses
  17.     TCL;
  18.  
  19. const
  20.     dummyCmd = 2000;        { Used in example DoCommand methods     }
  21.     WINDStarter = 500;        { Resource ID for WIND template             }
  22.  
  23.  
  24. {****}
  25. { * CStarterApp}
  26. { *}
  27. { *    Application class for a typical application.}
  28. { *}
  29. { ****}
  30.  
  31. type
  32.     CStarterApp = object(CApplication)
  33.  
  34.     { Declare your application's instance variables here     }
  35.     { (there are none in this example)                        }
  36.  
  37.     { CStarterApp's methods follow:                        }
  38.  
  39.             procedure IStarterApp;
  40.  
  41.             procedure MakeDesktop;                {For example dialog}
  42.             override;
  43.  
  44.             procedure SetUpFileParameters;
  45.             override;
  46.  
  47.             procedure SetUpMenus;
  48.             override;
  49.  
  50.             procedure DoCommand (theCommand: longint);
  51.             override;
  52.  
  53.             procedure UpdateMenus;
  54.             override;
  55.  
  56.             procedure CreateDocument;
  57.             override;
  58.  
  59.             procedure OpenDocument (macSFReply: SFReply);
  60.             override;
  61.  
  62.             procedure Exit;
  63.             override;
  64.         end;
  65.  
  66.  
  67. {***}
  68. { * CStarterDoc}
  69. { *}
  70. { *    Document class for a typical application.}
  71. { *}
  72. { ***}
  73.  
  74. type
  75.     CStarterDoc = object(CDocument)
  76.  
  77.     { Declare your document's instance variables here     }
  78.     { (there are none in this example)                        }
  79.  
  80.     { CStarterDoc's methods follow:                        }
  81.  
  82.                                     {* Construction/Destruction *}
  83.  
  84.             procedure IStarterDoc (aSupervisor: CApplication;
  85.                                         printable: Boolean);
  86.             procedure Free;
  87.             override;
  88.  
  89.             procedure DoCommand (theCommand: longint);
  90.             override;
  91.  
  92.             procedure UpdateMenus;
  93.             override;
  94.  
  95.             procedure NewFile;
  96.             override;
  97.             procedure OpenFile (macSFReply: SFReply);
  98.             override;
  99.             procedure BuildWindow (theData: Handle);
  100.  
  101.                                     {* Filing *}
  102.  
  103.             function DoSave: Boolean;
  104.             override;
  105.             function DoSaveAs (macSFReply: SFReply): Boolean;
  106.             override;
  107.             procedure DoRevert;
  108.             override;
  109.         end;
  110.  
  111.  
  112.  
  113. {***}
  114. { * CStarterPane}
  115. { *}
  116. { *    Pane class for a typical application.}
  117. { *}
  118. { ***}
  119.  
  120. type
  121.     CStarterPane = object(CPanorama)
  122.  
  123.     { Declare your pane's instance variables here             }
  124.     { (there are none in this example)                        }
  125.  
  126.     { CStarterPane's methods follow:                        }
  127.  
  128.                                     {* Construction/Destruction *}
  129.  
  130.             procedure IStarterPane (anEnclosure: CView;
  131.                                         aSupervisor: CBureaucrat;
  132.                                         aWidth, aHeight, aHEncl, aVEncl: integer;
  133.                                         aHSizing, aVSizing: SizingOption);
  134.  
  135.                                     {* Drawing *}
  136.  
  137.             procedure Draw (var area: Rect);
  138.             override;
  139.  
  140.                                     {* Mouse *}
  141.  
  142.             procedure DoClick (hitPt: Point;
  143.                                         modifierKeys: integer;
  144.                                         when: longint);
  145.             override;
  146.             function HitSamePart (var pointA, pointB: Point): Boolean;
  147.             override;
  148.  
  149.                                     {* Cursor *}
  150.  
  151.             procedure AdjustCursor (where: Point;
  152.                                         mouseRgn: RgnHandle);
  153.             override;
  154.  
  155.                                     {* Scrolling *}
  156.  
  157.             procedure ScrollToSelection;
  158.             override;
  159.         end;
  160.  
  161.  
  162. implementation
  163.  
  164. end.